BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Bus/H-L/Invoicer.cpt/Sales Tax

Text File | 1988-01-25 | 5KB | 182 lines

CLS
    TEXTSIZE (24):TEXTFACE(5)
    PRINT:PRINT SPC(10);"SALES TAX"
    WINDOW 2,"",(25,100)-(476,200),3
    TEXTFACE(1):TEXTSIZE(14)
    PRINT SPC(3);"START"
    BUTTON 1,1,"jan",(25,30)-(75,55),1
    BUTTON 2,1,"feb",(95,30)-(145,55),1
    BUTTON 3,1,"mar",(165,30)-(215,55),1
    BUTTON 4,1,"apr",(235,30)-(285,55),1
    BUTTON 5,1,"may",(305,30)-(355,55),1
    BUTTON 6,1,"jun",(375,30)-(425,55),1
    BUTTON 7,1,"jul",(25,65)-(75,90),1
    BUTTON 8,1,"aug",(95,65)-(145,90),1
    BUTTON 9,1,"sep",(165,65)-(215,90),1
    BUTTON 10,1,"oct",(235,65)-(285,90),1
    BUTTON 11,1,"nov",(305,65)-(355,90),1
    BUTTON 12,1,"dec",(375,65)-(425,90),1
    WHILE DIALOG(0)<>1:WEND
    ButtonPushed =DIALOG(1)
    IF ButtonPushed = 1 THEN sd$="01"
    IF ButtonPushed = 2 THEN sd$="02"
    IF ButtonPushed = 3 THEN sd$="03"
    IF ButtonPushed = 4 THEN sd$="04"
    IF ButtonPushed = 5 THEN sd$="05"
    IF ButtonPushed = 6 THEN sd$="06"
    IF ButtonPushed = 7 THEN sd$="07"
    IF ButtonPushed = 8 THEN sd$="08"
    IF ButtonPushed = 9 THEN sd$="09"
    IF ButtonPushed = 10 THEN sd$="10"
    IF ButtonPushed = 11 THEN sd$="11"
    IF ButtonPushed = 12 THEN sd$="12"

    TEXTSIZE (24):TEXTFACE(5)

    WINDOW 3,"",(25,220)-(476,320),3
    TEXTFACE(1):TEXTSIZE(14)
    PRINT SPC(3);"FINISH"
    BUTTON 1,1,"jan",(25,30)-(75,55),1
    BUTTON 2,1,"feb",(95,30)-(145,55),1
    BUTTON 3,1,"mar",(165,30)-(215,55),1
    BUTTON 4,1,"apr",(235,30)-(285,55),1
    BUTTON 5,1,"may",(305,30)-(355,55),1
    BUTTON 6,1,"jun",(375,30)-(425,55),1
    BUTTON 7,1,"jul",(25,65)-(75,90),1
    BUTTON 8,1,"aug",(95,65)-(145,90),1
    BUTTON 9,1,"sep",(165,65)-(215,90),1
    BUTTON 10,1,"oct",(235,65)-(285,90),1
    BUTTON 11,1,"nov",(305,65)-(355,90),1
    BUTTON 12,1,"dec",(375,65)-(425,90),1
    WHILE DIALOG(0)<>1:WEND
    ButtonPushed =DIALOG(1)
    IF ButtonPushed = 1 THEN ed$="01"
    IF ButtonPushed = 2 THEN ed$="02"
    IF ButtonPushed = 3 THEN ed$="03"
    IF ButtonPushed = 4 THEN ed$="04"
    IF ButtonPushed = 5 THEN ed$="05"
    IF ButtonPushed = 6 THEN ed$="06"
    IF ButtonPushed = 7 THEN ed$="07"
    IF ButtonPushed = 8 THEN ed$="08"
    IF ButtonPushed = 9 THEN ed$="09"
    IF ButtonPushed = 10 THEN ed$="10"
    IF ButtonPushed = 11 THEN ed$="11"
    IF ButtonPushed = 12 THEN ed$="12"

    IF ed$ < sd$ THEN RUN
    WINDOW OUTPUT 1:CLS
    WINDOW CLOSE 2:WINDOW CLOSE 3

GOTO Strt

  Strt:
   OPEN "Accts Recd" FOR INPUT AS #1
   WINDOW 2,"",(25,50)-(476,280),3
  Reedata:
   IF EOF(1) THEN Finish
   INPUT#1, ts$
   INPUT#1, CO$
   INPUT#1,dr$
   INPUT#1,CN$
   INPUT #1, PR$

   IF LEFT$(dr$,2)<sd$ THEN Reedata
   IF LEFT$(dr$,2)>ed$ THEN Reedata
   NG=VAL(PR$)+NG
   IF ts$<>"n" THEN Reedata
   TEXTFACE(0)
   PRINT SPC(1); dr$;SPC(2);
   TEXTFACE(1)
   PRINT CN$;TAB(42);
   PR=VAL(PR$)
   PRINT USING "$#####.##";PR
   FT=FT+PR
   IF EOF(1) THEN Finish
   GOTO Reedata
  Finish:
    PRINT CHR$(13);
    TEXTSIZE (12):TEXTFACE(1)
    PRINT"TOTAL RECEIVED:";
    PRINT TAB(42);
    PRINT USING"$#####.##";NG
    PRINT"TOTAL TAXABLE RECEIVED:";
    TEXTSIZE(12)
    PRINT TAB(42);
    PRINT USING"$#####.##";FT
    PRINT"TOTAL TAX RECEIVED:";
    TEXTSIZE(12)
    PRINT TAB(42);
    PRINT USING"$#####.##";(FT/107)*7

    CLOSE #1

  YourChoice:
    WINDOW 3,"",(25,285)-(476,330),-3
    BUTTON 1,1,"again",(55,10)-(130,35),1
    BUTTON 2,1,"print",(192,10)-(267,35),1
    BUTTON 3,1,"quit",(329,10)-(404,35),1
    WHILE DIALOG(0)<>1:WEND
    ButtonPushed =DIALOG(1)
    IF ButtonPushed =1 THEN FT=0:WINDOW CLOSE 2: WINDOW CLOSE 3: RUN
    IF ButtonPushed =2 THEN FT=0:NG=0:WINDOW OUTPUT 2:CLS:GOTO PrntWarning
    IF ButtonPushed =3 THEN WINDOW CLOSE 2:WINDOW CLOSE 3: LOAD "Open Me First",R

  PrntWarning:
    WINDOW 4,"",(115,120)-(375,200),-2
    TEXTFACE(1)
    PRINT"Please make sure printer is turned"
    PRINT"on and loaded with paper."
    BUTTON 1,1,"OK",(105,45)-(165,65),1
    BUTTON 2,1,"cancel",(185,45)-(245,65),1
    WHILE DIALOG(0)<>1:WEND
    ButtonPushed =DIALOG(1)
    IF ButtonPushed=1 THEN WINDOW CLOSE 4:WINDOW OUTPUT 2:CLS:GOTO Prnt
    IF ButtonPushed=2 THEN WINDOW CLOSE 4:WINDOW OUTPUT 2:CLS:GOTO YourChoice

  Prnt:
   LPRINT CHR$ (27);"X";
   LPRINT"SALES TAX  (";sd$;" - ";ed$;", "; RIGHT$ (DATE$,4);")"
   LPRINT CHR$ (27);"Y";
   LPRINT ""
   OPEN "Accts Recd" FOR INPUT AS #1
   REM WINDOW 2,"",(25,50)-(476,280),3
  Redata:
   IF EOF(1) THEN Finis
   INPUT#1, ts$
   INPUT#1, CO$
   INPUT#1,dr$
   INPUT#1,CN$
   INPUT #1, PR$

   IF LEFT$(dr$,2)<sd$ THEN Redata
   IF LEFT$(dr$,2)>ed$ THEN Redata
   NG=VAL(PR$)+NG
   IF ts$<>"n" THEN Redata
   LPRINT SPC(1); dr$;SPC(2);
   LPRINT CN$;TAB(50);
   PR=VAL(PR$)
   LPRINT USING "$#####.##";PR
   FT=FT+PR
   IF EOF(1) THEN Finis
   GOTO Redata
  Finis:
    LPRINT ""
    LPRINT"TOTAL RECEIVED:";
    LPRINT TAB(50);
    LPRINT USING"$#####.##";NG
    LPRINT"TOTAL TAXABLE RECEIVED:";
    LPRINT TAB(50);
    LPRINT USING"$#####.##";FT
    LPRINT"TOTAL TAX RECEIVED:";
    LPRINT TAB(50);
    LPRINT USING"$#####.##";(FT/107)*7

    CLOSE #1
    GOTO YourChoice